home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Ss-Sz / Stack Builder 4.1 Shell.cpt / Stack Builder v4.1 Shell / background_4147.txt < prev    next >
Text File  |  1987-11-12  |  12KB  |  560 lines
  1. -- background: 4147 from stack: in.1 Shell
  2. -- bmap block id: 16679
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Info Card Background
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global menu1,menu2
  9.   do "textSetUp2"
  10.   enableMenu menu1,5,true
  11.   enableMenu menu1,6,true
  12.   enableMenu menu1,7,true
  13.   enableMenu menu1,8,true
  14.   enableMenu menu1,10,true
  15.   enableMenu menu1,12,false
  16.   -----------------
  17.   enableMenu menu2,1,true
  18.   enableMenu menu2,2,true
  19.   enableMenu menu2,3,true
  20.   enableMenu menu2,4,true
  21.   enableMenu menu2,5,true
  22.   enableMenu menu2,6,true
  23.   -----------------
  24.   set lockText of background field "info1" to true
  25.   hide bkgnd button "Lock Text"
  26.   show bkgnd button "Edit Text"
  27.   -----------------
  28.   set icon of background button "Edit Text" to 23663
  29.   set icon of background button "Lock Text" to 22262
  30.   ---
  31.   do "charCount"
  32.   do "wordCount"
  33.   ---
  34. end openCard
  35. -------------------------------------------------------------------
  36. on doMenu it
  37.   if it is "Delete Card" or it is "Cut Card" then
  38.     if background field "CheckID" is "Master" then
  39.       Beep 20
  40.       answer "I can't let you remove a 'Master Original' card!" with "Oops, sorry!"
  41.       exit doMenu
  42.     end if
  43.     play "boing" gh
  44.     answer "Don't forget‚Ķ delete 'Index' reference too!" with "Yes, I will!"
  45.     set cursor to 4
  46.   end if
  47.   pass doMenu
  48. end doMenu
  49. -------------------------------------------------------------------
  50.  
  51.  
  52.  
  53.  
  54. -- part 1 (button)
  55. -- low flags: 00
  56. -- high flags: 2000
  57. -- rect: left=487 top=34 right=90 bottom=505
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 1
  61. -- font id: 0
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: Index Link
  66. ----- HyperTalk script -----
  67. on mouseUp
  68.   visual effect dissolve to black
  69.   go to card id 6849
  70. end mouseUp
  71.  
  72.  
  73.  
  74.  
  75. -- part 6 (button)
  76. -- low flags: 00
  77. -- high flags: 2000
  78. -- rect: left=487 top=34 right=90 bottom=505
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 0 / 0
  81. -- text alignment: 1
  82. -- font id: 0
  83. -- text size: 12
  84. -- style flags: 0
  85. -- line height: 16
  86. -- part name: Index Link
  87. ----- HyperTalk script -----
  88. on mouseUp
  89.   visual effect dissolve to black
  90.   go to card id 6849
  91. end mouseUp
  92.  
  93.  
  94.  
  95.  
  96. -- part 8 (button)
  97. -- low flags: 00
  98. -- high flags: 2000
  99. -- rect: left=15 top=28 right=322 bottom=39
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 0 / 0
  102. -- text alignment: 1
  103. -- font id: 0
  104. -- text size: 12
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: Title Card Link
  108. ----- HyperTalk script -----
  109. on mouseUp
  110.   visual effect dissolve to black
  111.   go to card id 2976
  112. end mouseUp
  113.  
  114.  
  115.  
  116.  
  117. -- part 13 (button)
  118. -- low flags: 00
  119. -- high flags: 2000
  120. -- rect: left=91 top=28 right=60 bottom=444
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 0 / 0
  123. -- text alignment: 1
  124. -- font id: 0
  125. -- text size: 12
  126. -- style flags: 0
  127. -- line height: 16
  128. -- part name: Return
  129. ----- HyperTalk script -----
  130. on mouseUp
  131.   visual effect zoom open to black
  132.   pop card
  133. end mouseUp
  134.  
  135.  
  136.  
  137. -- part 14 (button)
  138. -- low flags: 00
  139. -- high flags: 0000
  140. -- rect: left=49 top=28 right=58 bottom=82
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 23663 / 23663
  143. -- text alignment: 1
  144. -- font id: 0
  145. -- text size: 12
  146. -- style flags: 0
  147. -- line height: 16
  148. -- part name: Edit Text
  149. ----- HyperTalk script -----
  150. on mouseUp
  151.   set lockText of field info1 to false
  152.   -------
  153.   hide bkgnd button "Edit Text"
  154.   show bkgnd button "Lock Text"
  155.   -------
  156.   click at 50, 75
  157. end mouseUp
  158.  
  159.  
  160.  
  161. -- part 17 (button)
  162. -- low flags: 00
  163. -- high flags: 2000
  164. -- rect: left=446 top=30 right=55 bottom=483
  165. -- title width / last selected line: 0
  166. -- icon id / first selected line: 21700 / 21700
  167. -- text alignment: 1
  168. -- font id: 0
  169. -- text size: 12
  170. -- style flags: 0
  171. -- line height: 16
  172. -- part name: New Button
  173. ----- HyperTalk script -----
  174. on mouseUp
  175.   if the optionKey is down then
  176.     domenu "- mockwrite 4.3"
  177.   else
  178.     go home
  179.   end if
  180. end mouseUp
  181.  
  182.  
  183.  
  184. -- part 18 (field)
  185. -- low flags: 81
  186. -- high flags: 0001
  187. -- rect: left=488 top=202 right=255 bottom=504
  188. -- title width / last selected line: 0
  189. -- icon id / first selected line: 0 / 0
  190. -- text alignment: 0
  191. -- font id: 3
  192. -- text size: 12
  193. -- style flags: 0
  194. -- line height: 16
  195. -- part name: Hide Edit Text Button
  196.  
  197.  
  198. -- part 20 (button)
  199. -- low flags: 00
  200. -- high flags: 2000
  201. -- rect: left=262 top=293 right=318 bottom=305
  202. -- title width / last selected line: 0
  203. -- icon id / first selected line: 1013 / 1013
  204. -- text alignment: 1
  205. -- font id: 0
  206. -- text size: 12
  207. -- style flags: 0
  208. -- line height: 16
  209. -- part name: New Button
  210. ----- HyperTalk script -----
  211. on mouseUp
  212.   visual effect wipe left
  213.   go next
  214. end mouseUp
  215.  
  216.  
  217.  
  218. -- part 21 (button)
  219. -- low flags: 00
  220. -- high flags: 2000
  221. -- rect: left=227 top=294 right=317 bottom=265
  222. -- title width / last selected line: 0
  223. -- icon id / first selected line: 1014 / 1014
  224. -- text alignment: 1
  225. -- font id: 0
  226. -- text size: 12
  227. -- style flags: 0
  228. -- line height: 16
  229. -- part name: Previous
  230. ----- HyperTalk script -----
  231. on mouseUp
  232.   visual effect wipe right
  233.   go prev
  234. end mouseUp
  235.  
  236.  
  237.  
  238. -- part 22 (button)
  239. -- low flags: 80
  240. -- high flags: 0000
  241. -- rect: left=47 top=28 right=58 bottom=83
  242. -- title width / last selected line: 0
  243. -- icon id / first selected line: 22262 / 22262
  244. -- text alignment: 1
  245. -- font id: 0
  246. -- text size: 12
  247. -- style flags: 0
  248. -- line height: 16
  249. -- part name: Lock Text
  250. ----- HyperTalk script -----
  251. on mouseUp
  252.   set lockText of field info1 to true
  253.   -----------------
  254.   hide bkgnd button "Lock Text"
  255.   show bkgnd button "Edit Text"
  256. end mouseUp
  257.  
  258.  
  259.  
  260. -- part 25 (button)
  261. -- low flags: 00
  262. -- high flags: 2000
  263. -- rect: left=452 top=295 right=321 bottom=482
  264. -- title width / last selected line: 0
  265. -- icon id / first selected line: 19678 / 19678
  266. -- text alignment: 1
  267. -- font id: 0
  268. -- text size: 12
  269. -- style flags: 0
  270. -- line height: 16
  271. -- part name: Mini Help Link
  272. ----- HyperTalk script -----
  273. on mouseUp
  274.   play harpsichord g
  275.   visual effect zoom open to white
  276.   push card
  277.   go to card "Mini Help"
  278. end mouseUp
  279.  
  280.  
  281.  
  282. -- part 27 (field)
  283. -- low flags: 01
  284. -- high flags: 0000
  285. -- rect: left=92 top=32 right=58 bottom=426
  286. -- title width / last selected line: 0
  287. -- icon id / first selected line: 0 / 0
  288. -- text alignment: 1
  289. -- font id: 2
  290. -- text size: 18
  291. -- style flags: 0
  292. -- line height: 24
  293. -- part name: Title Field
  294.  
  295.  
  296. -- part 26 (field)
  297. -- low flags: 01
  298. -- high flags: 2007
  299. -- rect: left=44 top=65 right=292 bottom=479
  300. -- title width / last selected line: 0
  301. -- icon id / first selected line: 0 / 0
  302. -- text alignment: 0
  303. -- font id: 3
  304. -- text size: 12
  305. -- style flags: 0
  306. -- line height: 16
  307. -- part name: Info1
  308. ----- HyperTalk script -----
  309. on mouseUp
  310.   global newName, wordTotal
  311.   if the selection is empty then
  312.     set lockText of the target to false
  313.     repeat two times
  314.       click at the clickLoc
  315.     end repeat
  316.     put the selection into newName
  317.     put the length of newName into wordTotal
  318.     push card
  319.     if the optionKey is down and the shiftKey is down then
  320.       -------
  321.       set lockScreen to true
  322.       find newName in background field "Title Field"
  323.       if the result is empty then
  324.         pop card
  325.         beep
  326.         set lockScreen to false
  327.         answer "That word has been used‚Ķ choose another!" with "OK"
  328.         exit mouseUp
  329.       end if
  330.       -------
  331.       type newName & "*"
  332.       -------
  333.       do "firstCap"
  334.       -------
  335.       do "doCard"
  336.       -------
  337.     else
  338.       if the optionKey is down then
  339.         -------
  340.         set lockScreen to true
  341.         find newName in background field "Title Field"
  342.         if the result is empty then
  343.           pop card
  344.           beep
  345.           set lockScreen to false
  346.           answer "That word has been used‚Ķ choose another!" with "OK"
  347.           exit mouseUp
  348.         end if
  349.         -------
  350.         type newName & "*"
  351.         -------
  352.         do "doCard"
  353.         -------
  354.       else
  355.         if the shiftKey is down then
  356.           -------
  357.           set lockScreen to true
  358.           find newName in background field "Title Field"
  359.           if the result is empty then
  360.             pop card
  361.             beep
  362.             set lockScreen to false
  363.             answer "That word has been used‚Ķ choose another!" with "OK"
  364.             exit mouseUp
  365.           end if
  366.           -------
  367.           type newName & "*"
  368.           -------
  369.           do "allCap"
  370.           -------
  371.           do "doCard"
  372.           -------
  373.         else
  374.           push card
  375.           visual effect zoom open to white
  376.           find newName in field "Title Field"
  377.           if the result is not empty then
  378.             answer "No match for keyword " "e& newName"e
  379.           end if
  380.         end if
  381.       end if
  382.     end if
  383.   else
  384.     beep
  385.     answer "Title already used‚Ķ try another!" with "OK"
  386.   end if
  387.   click at 0,0 --disable selection
  388.   set lockText of the target to true
  389. end mouseUp
  390. -----------------------------------------------------------------------
  391. on doCard
  392.   global newName
  393.   doMenu New Card
  394.   set name of this card to newName
  395.   put newName into bkgnd field "Title Field"
  396.   put empty into bkgnd field id 35 -- CheckID
  397.   put "untitled" into bkgnd field id 31
  398. end doCard
  399. ----
  400.  
  401.  
  402.  
  403. -- part 28 (button)
  404. -- low flags: 00
  405. -- high flags: 2000
  406. -- rect: left=91 top=28 right=60 bottom=444
  407. -- title width / last selected line: 0
  408. -- icon id / first selected line: 0 / 0
  409. -- text alignment: 1
  410. -- font id: 0
  411. -- text size: 12
  412. -- style flags: 0
  413. -- line height: 16
  414. -- part name: Return
  415. ----- HyperTalk script -----
  416. on mouseUp
  417.   visual effect zoom open to black
  418.   pop card
  419. end mouseUp
  420.  
  421.  
  422.  
  423. -- part 29 (button)
  424. -- low flags: 00
  425. -- high flags: 2000
  426. -- rect: left=91 top=28 right=60 bottom=444
  427. -- title width / last selected line: 0
  428. -- icon id / first selected line: 0 / 0
  429. -- text alignment: 1
  430. -- font id: 0
  431. -- text size: 12
  432. -- style flags: 0
  433. -- line height: 16
  434. -- part name: Return
  435. ----- HyperTalk script -----
  436. on mouseUp
  437.   visual effect zoom open to black
  438.   pop card
  439. end mouseUp
  440.  
  441.  
  442.  
  443. -- part 30 (button)
  444. -- low flags: 00
  445. -- high flags: 2000
  446. -- rect: left=0 top=36 right=326 bottom=14
  447. -- title width / last selected line: 0
  448. -- icon id / first selected line: 0 / 0
  449. -- text alignment: 1
  450. -- font id: 0
  451. -- text size: 12
  452. -- style flags: 0
  453. -- line height: 16
  454. -- part name: Go Back Button
  455. ----- HyperTalk script -----
  456. on mouseUp
  457.   visual effect dissolve to black
  458.   domenu "back"
  459. end mouseUp
  460.  
  461.  
  462.  
  463. -- part 31 (field)
  464. -- low flags: 01
  465. -- high flags: 0000
  466. -- rect: left=295 top=305 right=321 bottom=455
  467. -- title width / last selected line: 0
  468. -- icon id / first selected line: 0 / 0
  469. -- text alignment: 1
  470. -- font id: 3
  471. -- text size: 9
  472. -- style flags: 256
  473. -- line height: 13
  474. -- part name: Header
  475.  
  476.  
  477. -- part 32 (field)
  478. -- low flags: 01
  479. -- high flags: 0000
  480. -- rect: left=161 top=305 right=321 bottom=214
  481. -- title width / last selected line: 0
  482. -- icon id / first selected line: 0 / 0
  483. -- text alignment: 1
  484. -- font id: 3
  485. -- text size: 9
  486. -- style flags: 256
  487. -- line height: 13
  488. -- part name: Char Count
  489.  
  490.  
  491. -- part 33 (field)
  492. -- low flags: 01
  493. -- high flags: 0000
  494. -- rect: left=102 top=305 right=321 bottom=155
  495. -- title width / last selected line: 0
  496. -- icon id / first selected line: 0 / 0
  497. -- text alignment: 1
  498. -- font id: 3
  499. -- text size: 9
  500. -- style flags: 256
  501. -- line height: 13
  502. -- part name: Word Count
  503. ----- HyperTalk script -----
  504. on mouseUp
  505.   do "charCount"
  506. end mouseUp
  507.  
  508.  
  509. -- part 34 (button)
  510. -- low flags: 00
  511. -- high flags: 2000
  512. -- rect: left=102 top=294 right=320 bottom=214
  513. -- title width / last selected line: 0
  514. -- icon id / first selected line: 0 / 0
  515. -- text alignment: 1
  516. -- font id: 0
  517. -- text size: 12
  518. -- style flags: 0
  519. -- line height: 16
  520. -- part name: Do word/char count
  521. ----- HyperTalk script -----
  522. on mouseUp
  523.   do "charCount"
  524.   do "wordCount"
  525. end mouseUp
  526.  
  527.  
  528.  
  529. -- part 35 (field)
  530. -- low flags: 01
  531. -- high flags: 0000
  532. -- rect: left=44 top=296 right=310 bottom=81
  533. -- title width / last selected line: 0
  534. -- icon id / first selected line: 0 / 0
  535. -- text alignment: 1
  536. -- font id: 3
  537. -- text size: 9
  538. -- style flags: 0
  539. -- line height: 12
  540. -- part name: CheckID
  541.  
  542.  
  543. -- part 36 (button)
  544. -- low flags: 00
  545. -- high flags: 2000
  546. -- rect: left=320 top=293 right=319 bottom=430
  547. -- title width / last selected line: 0
  548. -- icon id / first selected line: 0 / 0
  549. -- text alignment: 1
  550. -- font id: 0
  551. -- text size: 12
  552. -- style flags: 0
  553. -- line height: 16
  554. -- part name: Reset "Untitled"
  555. ----- HyperTalk script -----
  556. on mouseUp
  557.   put "untitled" into field id 31
  558. end mouseUp
  559.  
  560.